What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/Internal_33_scroll down button.ls

Text File | 1998-05-11 | 871 b | 20 lines

on mouseUp
  moveDownReviewList()
end

on moveDownReviewList
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, reviewsDisplayed, SpriteList, SpriteForFirstOptionInList
  set NumItems to count(listOfSelectedReviews)
  if (pointerToReviewsList + reviewsDisplayed) <= NumItems then
    set pointerToReviewsList to pointerToReviewsList + 1
    set ScrollPosTop to ScrollPosTop + scrollIncrements
    set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  end if
  repeat with s = 1 to reviewsDisplayed
    set l to s + pointerToReviewsList - 1
    set currentItem to getAt(listOfSelectedReviews, l)
    set the member of sprite (SpriteForFirstOptionInList + s - 1) to member (currentItem && "graphic text")
    updateStage()
  end repeat
end